/* ********************************************************************* */
/*  */
/* OCaml */
/*  */
/* Pierre Weis, projet Cristal, INRIA Rocquencourt */
/*  */
/* Copyright 2007 Institut National de Recherche en Informatique et */
/* en Automatique.  All rights reserved.  This file is distributed */
/* under the terms of the Q Public License version 1.0. */
/*  */
/* ********************************************************************* */

type t = float

let make = f => f

let from = t => t

type s = {f: t}
